module Misc where



maximumBy :: (a -> a -> a) -> [a] -> a
maximumBy max xs = foldl1 max xs


